home *** CD-ROM | disk | FTP | other *** search
/ Ancient Asian Sex Secrets / Ancient Asian Sex Secrets.iso / mac / QUEENMC.Dxr / 00007_T_init2.ls < prev    next >
Encoding:
Text File  |  1997-05-12  |  1.5 KB  |  53 lines
  1. on exitFrame
  2.   global X0, Y0, X1, Y1, X2, Y2, XA1, YA1, XA2, YA2, XB1, YB1, XB2, YB2, XC1, YC1, XC2, YC2, XD1, YD1, XD2, YD2, XZ1, YZ1, XZ2, YZ2, FirstPlaySW, ThrowBallSW, ThrowOk, ThrowArrow, PlayBack, Counter, Area, gTimeOut, gHelp, gMove1, MaxgT, gB
  3.   set MaxgT to 73
  4.   set gB to 4.0
  5.   set gHelp to 0
  6.   set gTimeOut to "yy2"
  7.   set XA1 to 288 - ((Area - 1) * 60 / 2)
  8.   set YA1 to 148 - ((Area - 1) * 30 / 2)
  9.   set XA2 to XA1 + (60 * Area)
  10.   set YA2 to YA1 + (30 * Area)
  11.   set XC1 to 288
  12.   set YC1 to 179
  13.   set XC2 to 288 + 60
  14.   set YC2 to 179 + 16
  15.   set XB1 to 230
  16.   set YB1 to 135
  17.   set XB2 to 230 + 40
  18.   set YB2 to 135 + 36
  19.   set XZ1 to 213
  20.   set YZ1 to 60
  21.   set XZ2 to 213 + 109
  22.   set YZ2 to 60 + 129
  23.   set XD1 to 290
  24.   set YD1 to 195
  25.   set XD2 to 90 + 50
  26.   set YD2 to 195 + 48
  27.   if gMove1 <> 1 then
  28.     set the visible of sprite 14 to 0
  29.     set the visible of sprite 15 to 0
  30.     set the visible of sprite 16 to 0
  31.     set the visible of sprite 17 to 0
  32.     set the visible of sprite 18 to 0
  33.     set the visible of sprite 19 to 0
  34.     set the visible of sprite 20 to 0
  35.     set the visible of sprite 21 to 0
  36.     set the visible of sprite 22 to 0
  37.     set the visible of sprite 23 to 0
  38.     set PlayBack to 1
  39.     set ThrowOk to 0
  40.     set FirstPlaySW to 0
  41.     set ThrowBallSW to 0
  42.     set ThrowArrow to 1
  43.     puppetSprite(10, 1)
  44.     puppetSprite(11, 1)
  45.   else
  46.     set the visible of sprite 21 to 0
  47.     puppetSprite(10, 1)
  48.     puppetSprite(11, 1)
  49.     set gMove1 to 0
  50.     go(the frame + 1)
  51.   end if
  52. end
  53.